00010 FILES LETTER,TITLE
    00015 SCRATCH #2
  00020 DIM L$(800),X(20)
00030 FOR I = 1 TO 36
  00040 FOR J=1 TO 21
    00050 K=(I-1)*21+J
00055 INPUT #1,L$(K)
   00060 NEXT J
 00070 NEXT I
 00075 PRINT "ENTER 6 CHARACTERS";
00080 INPUT A$
    00090 CHANGE A$ TO X
   00100 IF X(0) <> 6 THEN 75
  00110 FOR I = 1 TO 6
   00120 IF X(I) <65 THEN 160
  00130 IF X(I) >91 THEN 75
   00140 X(I)=X(I)-64
00150 GOTO 200
    00160 IF X(I)<48 THEN 191
   00170 IF X(I)>58 THEN 75
    00180 X(I)=X(I)-22
00190 GOTO 200
    00191 IF X(I)<>32 THEN 75
   00195 X(I)=37
00200 PRINT X(I);
 00205 NEXT I
 00207 PRINT
  00300 FOR I = 1 TO 21
  00310 FOR J= 1 TO 6
    00320 K=(X(J)-1)*21+I
  00325 WRITE #2,L$(K)
   00330 NEXT J
 00350 NEXT I
 00380 END
    